5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,21
30 FORZ=1TO4:F1=20:REM NO. OF CYCLES
40 FORY=1TO3:F2=100:REM NO. OF INCREMENTS
50 POKE54273,F1:REM VOICE ONE FREQUENCY
60 FORX=1TO5:POKE54287,F2:REM SPEED
70 F1=F1*1.05:F2=F2*.1:REM HARMONIC CONTENT
80 NEXTX:NEXTY:NEXTZ:POKE54278,15
90 LIST